'(THIS IS THE UNFASL FOR ((DSK (AID LSP)) HMATCH /124)) 
'(ASSEMBLED BY FASLAP /392) 
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117) 

;COMPILED ON MAY 3, 1982, AT 1:03 PM

;Loading DEFSTRUCT 233
'MSTATE 
	(COMMENT **FASL** 0. (LAP %%ADVANCE SUBR)) 
	(COMMENT **FASL** 13. (LAP P-ATOMIC SUBR)) 
	(COMMENT **FASL** 17. (LAP P-CURRENT-ATOMIC SUBR)) 
	(COMMENT **FASL** 26. (LAP P-UNDECOMPOSABLE SUBR)) 
	(COMMENT **FASL** 42. (LAP P-ADVANCE SUBR)) 
(COMMENT ****  (X) Unused LAMBDA variables in function P-CHANGE)
	(COMMENT **FASL** 104. (LAP P-CHANGE SUBR)) 
	(COMMENT **FASL** 149. (LAP P-MAP-BUILD SUBR)) 
	(COMMENT **FASL** 168. (LAP P-LISTIFY SUBR)) 
	(COMMENT **FASL** 211. (LAP P-LISTIFY-REST SUBR)) 
	(COMMENT **FASL** 256. (LAP P-ADD-ITEM SUBR)) 
	(COMMENT **FASL** 285. (LAP P-ADD-ITEMS SUBR)) 
	(COMMENT **FASL** 318. (LAP P-REST-EMPTY SUBR)) 
	(COMMENT **FASL** 339. (LAP P-CREATE-STATE SUBR)) 
	(COMMENT **FASL** 360. (LAP P-CHANGE-CURRENT-ITEMS SUBR)) 
	(COMMENT **FASL** 373. (LAP P-CREATE-NULL-STATE SUBR)) 
	(COMMENT **FASL** 390. (LAP P-CREATE-STATE-FROM-CURRENT SUBR)) 
	(COMMENT **FASL** 437. (LAP %%P-SPECIAL-FORMP SUBR)) 
	(COMMENT **FASL** 490. (LAP %%CALLS SUBR)) 
	(COMMENT **FASL** 492. (LAP %%STATISTICS SUBR)) 
	(COMMENT **FASL** 500. (LAP |[AID,LSP]HMATCH.124←1| LSUBR)) 
	(COMMENT **FASL** 506. (LAP %UMATCH LSUBR)) 
	(COMMENT **FASL** 548. (LAP |[AID,LSP]HMATCH.124←2| LSUBR)) 
	(COMMENT **FASL** 554. (LAP %UMATCH-CONTINUE LSUBR)) 
	(COMMENT **FASL** 593. (LAP |[AID,LSP]HMATCH.124←3| LSUBR)) 
	(COMMENT **FASL** 599. (LAP %UMATCH-NOBIND LSUBR)) 
	(COMMENT **FASL** 636. (LAP |[AID,LSP]HMATCH.124←4| LSUBR)) 
	(COMMENT **FASL** 642. (LAP %UMATCH-CONTINUE-NOBIND LSUBR)) 
	(COMMENT **FASL** 682. (LAP %%UMATCH LSUBR)) 
	(COMMENT **FASL** TOTAL =  5353. WORDS)